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Abstract 

I present four type abstraction rules which have been 
introduced by various authors to permit polyrorphic 
type safety in the presence of mutable data. Each of 
the type abstraction rules is discussed in the context of 
the language inwhichis was introduced, andthe various 
abstraction rules are conpared. 

Categories andSubject Descriptions: D3.1 [Program- 
ming Languages] - Forral IMinitions and Theory; 
D3. 3 [ Programming Languages] - Language (in- 
structs: Implicit Typing; D 1. m[ Programming Tech- 
niques] -Miscellaneous: Polyrorphic References; 

General Trra: Languages, Type Theory, Polyror- 
phism Reference Values. 

Additional Key Words and Hirases: type system, poly- 
rorphic references, nutation, effect system, type infer- 
ence, type reconstruction, inperative types, weakpoly- 
rorphism Standard ]VL, EK-89. 



1 Type Attraction Rules 

The type abstraction rules I consider here are: 

1. EX89-pure: expression abstracted nnst be pure 

2. Ttfte- applicative: one-level store types 

3. Ehras-III: tw>level store types 

4. McQueen- weak: type variables have strength 



2 FX-89-pure 

Attaches specific side-effect infornation to all function 
arrows and enforces the correctness of these effect spec- 
ifications. Tie expression which is abstracted with re- 
spect to a type vari abl e nnst have no (i raaadi ate) si de- 
effects. 

This ought to rake it a very restrictive rule, as com 
pared to the others. (Aide fromthe fact that I expect 
the checking of the side- effect specifications to disallow 
rore program. ) However, inserting an explicit type ab- 
straction at the appropriate point within the expression 
right alleviate the problem 



2.1 FX-89 Language Syntax 
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: : = Identifiers 


7T 


: P 


: : = FH native types 


V 


: U 


::= P pri native type 
I type identifier 
U — ► U function 



e : E : : = I variable 

(lambda (I) E) lanbda 

(E E) application 

(let (I E) E) generic-let 

Tie type donainU contains the types which are sup- 
plied by the prograraaar inexplicit type declarations. 
Tie type of a function encodes the type of its argunant 



and its result. If the type of the argumnt is rononor- 
phic, then it nay be emitted. The type 'it.v represents 
the type of polyrorphic values abstracted over the type 
paranater t . 

In the expression donain, lambda abstracts E over 
the ordinary variable I. 



2. 2 Deductive System 



where a \. . . #are the generic variables of rET 



The synbols V and V are distinguished deliberately: 

V binds the generic type variables of a type schena, and 

V binds type variables w thin a type. 

Efefinition ( Alpha- renanung). Types r and r ' are 

alpha- renanable (witten t ~ t ') iff sons renamng of 
type variables bound in r produces r '. 



I present the typing systemof IEKas as fornal deduc- 
tion systemconsi sting of a set of type reconstruction 
rules. The type systemcontains generic (i .e. general) 
type variables, and distinguishes between these generic 
type variables and the type identifiers which appear in 
user- supplied types. The type systemalso distinguishes 
between rononorphi c and pol yrorphi c types : 

a : G ::= (ineral type variables 



= p 


pri native type 


I 


type identifier 


G 


general type variable 


M^M 


function 


= P 


pri native type 


I 


type identifier 


G 


gener al t ype var i abl e 


T^T 


function 


VJ... 


„L T polyrorphic type 



The IEKtyping rules nake use of aninportant dis- 
tincti on between the MandTtype donains. The rules 
are designed so that Mtypes nay be onatted from 
fornal argumnt type declarations, but T types nay 
not. Thus, the different levels in the type syntax spec- 
ify the restrictions on the input program. The use of 
syntactically-specified restrictions is intended to com 
rnnicate clearly to the prograraaar the li natations of 
the type reconstruction system 



Type Scheras 



Efefirdtion (Instantiation). The type r ' is an in- 
stance of the schena r\ = V«i- . . ff. t (written r\ y_ f) iff 
there are ronomrphi c ll \. . .^i such that r[/^-/a:;] ~ f. 
(The y relation extends to type schems by r\ y_ r\ ' iff 
V r : 'rjy r =>• r\ y_ r . ) 

Note that only Mtypes nay be substituted to produce 
instantiations, and that it is assured that substitution 
takes place with renamng of any bound type variables 
to avoid capture. The result of substituting li for t in 
r will be written r[fi/t] . The type schena r\ = V. r, 
having no generic type variables, will occasionally be 
abbreviated as r . 

The inference rules for explicitly typed term are pre- 
sented first . Atype assi gnrant A naps each vari abl e i n 
its donainto atype schena. The notation A x refers to 
the type assi gnrant Awiththe assi gnrant for variable 
x reroved. 

The notation PG^r) refers to the free general type 
vanaUesoi r, andFI\(r) to refer to the free typeiden 
tifiersoi r. Sinalarly PG^(j4) refers to the free general 
type variables of the type schems in the assi gnrant A 
A so, (in(j4, r) is denned as follows: 

Efefinition (Generalization). The generalization 

of r with respect to A (written (in(j4, r)), is the type 

schena r\ = Va 8 -. r, where {cq} =KM,t) — PG^{j4). 



The IEKtype systemsupports the generic pol yror- 
phi snfound in M, as well as the explicit pol yrorphi sm 
found in Feynolds' second- order polyrorphic lanbda 
calculus. In order to provide generic pol yrorphi snj 
type schems are defined which represent the generic 
(i.e. general) type of a variable which is pernatted mul- 
tiple imtartiatiore. 



Definition (TJrpe Schena). 

termof the form 

Vai.. 



A type scnem r\ i s a 



ff- T, 



Typi ng Rules 



The type reconstruction rules of IEKare as follows: 



ILABIA 



A x + (x : li) h e : r 
A\~ (lambda (x) e) : ll^t 



A\~ e : % ^ T r 

A\~ eg : Tg 
A\~ (e %) : T r 

The above rules describe the typing requi Tenants of 
val ue abstracti on and val ue appl i cati on. 

The following rules describe the typing requi Tenants 
of variables and the Mr style generic let construct. 



\SHNBT 



ILET 



(x : Vttj. t) G A 
A\~ x : T[p/ai} 



A\~ q, : % 
AV~ q, : i => (in(4 T h )y (in(4 r 6 ') 
^ -H> : (ln(A, r t )) h e : r 
Ah (let O <%) e) : r 

Generi c let 

The ILETand \SHNBTrules provide the Mrstyle 
generic let. ILET associates a generic type schena 
with the let- bound variable, and \AHNST per nits 
each occurence of the variable to be independently as- 
signed any instance of its generic type schena. The 
conveni ence of aut onat i c gener al i z at i on and i ns t ant i a- 
ti on are provided by these tw) rules. InlE?^ the typing 
rules perrmt this convenience with the caveat that the 
autonatically deduced type paranaters be Mtypes. 

The typing power of the ILET rule is equivalent to 
that provided by rewriting the let expression in the 
usual way while naHnguse of open and close: 

((lambda (x : r) e[(open x)/x\) (close g)). 

Lbwever, this transfornation is not pure syntactic 
sugar, because it requires r, the explicitly polyror phi c 
type of the bound variable. 



3. 1 Efefini ti ons 

The typingsystemdistinguishes between irpavtive and 
qjpl i cative type variables: 

t G AppTyVar 
u G ImpTyVar 
a G TyVar =AppTyVar U IrrpTyVar 

t : M ::= P pri native type 

G type variable 

M^M function 
r ref reference type 

Efefini ti on (TJ^De Closure). The type closured r 
with respect to A (written Q os a t ), is the type schena 
rj = Va 8 '. r, where { p} =tyvars r — tyvars A 

Efefirition (i^ipli cative TJ^De Gosure). The ap- 
plicative type closure of r with respect to A (written 
AppGos a t )j ls the type schena r\ = \Iu{.t, where 
{ $} =apptyvars r — apptyvars A 

Wen a type schena is instantiated, only inperati ve 
types nay be substituted for inperati ve type variables. 
Ai expression is considered to be expamveif its evalua- 
tion night expand the donainof the store (i.e. , allocate 
mutable data). The classification adopted in [T>fte87] 
is that let expressions and applications are expansive, 
but lanbda abstractions and variable accesses are not. 



3. 2 T^pi ng rul es 

The reference creation operator ref is assigned the im 
perative type V u. u — ► uref . The rules which provide 
type abstraction of expansive and non- expansive ex- 
pressions in the inperati ve/appli cati ve system are as 
f ol 1 ows : 



3 Tift e- appl i cative 

(Jnt animates all type variables appearing in any type 
expression at which the ref constructor is instantiated. 
The contaminated type variables are inperati ve, the 
others are applicative. This distinction is naintained 
by type abstraction, and is enforced at function call 
boundaries, etc. The abstraction rule does not pernit 
abstractions of expansive expressions with respect to 
inperati ve type variables; expansive expressions are let 
and appl i cati on expressi ons . 



\SHNBT 



LET Expansive 



(x : Va*. r) G A 
A\~ x : t[(a/ ai\ 



AY- % : % 
ej is expansive. 

A x +(x : AppGos a t),) h e 

A\~ (let (x eb) e) : r 



LEF N)n- expansi ve 



AY- €b : % 
ei, is non- expansive. 

A x +(x : Oos A T h ) Y- e : t 
AY- (let (x q,) e) : r 



3. 3 Appl i cat i ve types and IX 89 

In EX 89, type abstraction is perrmtted only when the 
side- effect specifications ensure that the polyrorphic 
expressi on is referential ly transparent. [T>fte87] takes a 
different approach, based on the concept of qjplicative 
types. Tofte classifies certain expressions as expansive, 
and perrmts type abstraction of these expressions only 
with respect to applicativetype variables. This type ab- 
straction rule perrmts different type abstractions than 
does the EX 89 pure-type-abstraction rule, as I will 
show later. Fterhaps the i operative typing discipline 
can be conbined with the type reconstruction system 
of EX 89. 



4 Damas-III 

Mintains atwolevel version of inperati ve types, distin- 
guishing those type variables which have been contain 
inated already fromthose which will becom contami- 
nated by further application. The deductions carry a 
set of type variables, and so also do any type schems 
which are arrows. Types, however, do not carry sets of 
type variables, nor is there rare than a single top-level 
such set in a type schem. 



4. 1 Efefini ti ons 



A( written EQos A&l), is the type schem r\ ' =V cq. rj, 
where { cq) =tyvars r\ — (tyvars j4tyvars A 

Wen a type schem is instantiated, the substitution 
is used to expand the set of type variables, and the set 
of type vari abl es nay be spuri ousl y expanded as wel 1 . 



4. 2 typi ng rul es 

The reference creation operator ref is assigned the im 
per at i ve type V £.£—*■£ re/* { t} . The rules which pro- 
vide type abstraction and instantiation are as follows: 



EXSHNST 



ELET 



(x : V p; r) £ A 
AY- x : t[(jJ ai\ * <f> 

AY- q, : r}, * A 
A x +(x : EQos A rji) Y~ e : r] * A 
AY- (let (x ej) e) : r) * A 



The rules which describe the typing requiremnts of 
val ue abstracti on and val ue appl i cati on are as f ol 1 ows : 



HAAHA 



om 



A x +(x ■ r a ) Y- e : t * A 

AY- (lambda (x) e) : (j ^ r * A^ * 



AY- e : (a"^r r ) * A 

AY- eg : T a * A 
AY- (e eg) : r r * A 



The typing systemdefines schems to include a set of 
type variables: 



a £ TyVar 



P 
G 

r ref 



pri native type 
type variable 
function 
reference type 



r\ : S : := T type 

T — ► T * A i npure f uncti on 
V a. r\ polyrorphic type 

Efefini ti on (TJ'pe Gosure). The type closure oi r\ 
with respect to type assignrant A and type variables 



5 M acQ ueen- weak 

Attaches nunbers to type variables whichmasure their 
"weakness" (strength). The nunbers indicate how 
nany applications nmst take place before a reference to 
the type variable right have been created. Abstraction 
is perrmtted only with respect to type variables whose 
weakness renains positive. Wakness is downward con- 
taminating, and the reference constructor is the source 
of contamination. Afurther restriction is not yet well 
understood: Ai instantiation of a let- bound variable is 
strength- liimtedsomhow; related to the outerrast ab- 
stracti on level at whichthe expressi on of which it is part 
appears as an operand. Efetter figure this out. 



5. 1 Efefini ti ons 

The typingsystemdistinguishes between «rp»rf«re and 
qjplicativetype variables: 

w G Strength ={ . . . , — 1, 0, 1, . . . , oo} 
a G Tyvar 
a w G WeakTyVar =TyVar x Strength 

t : M ::= P pri native type 

G type variable 

M^M function 
r ref reference type 

Efefirdtion (Strength Iirmt). The type r is w- 
strength limted, witten [r] w , iff all type variables in 
r with non- infinite strength have strength less than or 
equal tow. 



The following rules describe the typing requi Tenants 
of variables and the Mr style generic let construct. 



wmi 



VEET 



(x:\faf\T) G A 

[Ti] W ' 

A\~ x : r[ifai] 



Ah q, : % 
A x +(x : WakQos A n) H e : r 
A\~ (let O <%) e) : r 



The reference value constructor ref is assigned the 
type M el. el ^ a 1 ref. 



Efefini t ion (Strengthening). The strengthemng of r , 
witten [t]++, is the type in which all type variables 
with non-infinite strength have incremntally larger 
strength. So [r a — > r 6 ]++ = [r a ]++ — > [r 6 ]++ , and 
[0^°]++ = ef , but [a w ]++ = rf" +1 . 

Efefini ti on (Weak TJ^De Qosure). The week type 
dosureoi r with respect to A( witten WakG os at), is 

the type schem n = Va™'. r, where { $ =tyvars r — 
tyvars ^4, and w ; =rrin{ xi\a f G tyvars r} . 

Wenatype schem is instantiated, the type substi- 
tuted for a type variable must not be stronger than the 
type variable. 



Weak T^pi ng Ril es 

The type reconstruction rules of McQieen- weak are as 
f ol 1 ows : 



VE^ffiA. 



A x +(x : /i) \~ e : t 



WFL 



A\~ (lambda (x) e) : [/^— *-Tf+" 



A\~ e : [>— > T r 
A\~ ea : T a 



Ah (e e a ) : t t 

The above rules describe the typing requi Tenants of 
val ue abstracti on and val ue appl i cati on. 



6 C orpari son of 
Aist ract i on Rd es 

6.1 Eanas-III > Tbfte- appl i cati ve 

(1) let f = let x = (fn x => x) 1 

in (fn y => ! (ref y)) 
end 

in (f 1; f true) 

end 

[T)fte87] provides this exanple on page 73. 

Unas-Ill can type this systembecause the let ex- 
pression defining f is abstractable with respect to the 
type of y. This is the case because the two- level analysis 
of the allocated types of the let expression reveals that 
none are already allocated, although the type of y will 
be allocated by further application. 

Tofte- applicative cannot type this systembecause the 
one- level analysis reveals rarely that the type of y is-or- 
will-be allocated, and the let expression is considered 
expansive, so the type abstraction is not perrmtted. 



6.2 Tbfte- appl i cati ve > Eanas-III 

(2) Nd known exanpl e . 

[T)fte87] states on page 73 that an enbedding exists. 



6. 3 Mac Queen- weak > 

Tbf te- appl i cati ve, Eanas-III 

(3) 

let fold = fn f => fn i => fn 1 => 
let data = ref 1 
result = ref i 
in (while (Idata <> [] ) do 

(result := f(hd( Idata)) (! result) 
data := tl( Idata)) ; 
I result) 
end 
in let fastjreverse = fold cons [] 
in (fastjreverse [3,5,7]; 

fastjreverse [true, true, f alse] ) 
end 
end 

[Tfte87] , Exanple 4.5, mntionedonpage 74. 

McQieen- weak can type this exanple, because the 
counti ng nathods used by the typi ng al gori thmdeduce 
that fold naist be applied three tiras before any al- 
location occurs, and since fastjreverse is denned by 
applyingf old only twee, fast jreverse still has a type 
of strength one, and so nay be generalized with respect 
to the type of the elenants of the list. 

Tofte- applicative cannot type this exanple because 
the one- level store typing analysis considers the expres- 
sion (fold cons [] ) to be expansive, and therefore 
does not perrmt the type abstraction 

Ehnas-III cannot type this exanple because the two- 
level nathod also considers all type variables to have 
been allocated by the evaluation of (fold cons [] ), 
and therefore does not perrmt the necessary type ab- 
straction. 

6.4 Eanas-III, Tbf te- appl i cati ve > 
McQieen- weak 

(4) let rid = fn x => I (ref x) 

in let f = fn y => rid (fn a => a) y 
in (f 0; 

f true) 
end 
end 

Tofte- applicative can type this exanple, because the 
denning expression for f is a lanfoda abstraction, which 
is considered non- expansive, andso the type abstraction 
wth respect to the type of y is perrmtted even though 
it is an i operative type. (Ehras-III can also type this 



exanple, because the tw> level analysis also reveals that 
the lanfoda expression denning f has not yet allocated 
at any types. ) 

McQieen- weak cannot type this exanple, because 
rid must be gi venatype wthstrengthone, and yet rid, 
after instantiation, is applied twee. This lowers the 
strength so that the strength of the type of y beconas 
zero. Therefore, the type abstraction is not perrmtted. 

6.5 1%89-pure > Eanas-III, 

Tbf te- appl i cati ve, McQieen- weak 

(5) let nop = fn f => fn x => 

let g = fn y => f x 
in x 
end 
in let h = nop (fn a => I (ref a)) 
(fn b => b) 
in (h 0; 

h true) 
end 
end 

EX89-pure can type this exanple because the side- 
effect analysis systenxorrectly deterrmnes that nop has 
no latent side- effects, because the evaluation of nop ap- 
plied to any argunants f and x will narely return x. If 
f were applied by nop, then the latent effect of the type 
of nop would include the latent effect of its argunant 
type, the type of f . Therefore, the denning expression 
for his pure, and nay be abstracted with respect to the 
type of b. 

Ehnas-III and Tofte- applicative cannot type this ex- 
anple because the store- typing analysis nathods as- 
sure that allocationhas occuredat the type of a during 
the evaluation of the denning expression for h (the ap- 
pl i cati on of nop) . The bi ndi ng of g i n the defini ti on of 
nop constrains the type of a to be the sana as the type 
of b. Therefore, type abstraction with respect to the 
type of b is not perrmtted. 

McQieen- weak cannot type this exanple because 
the naximmweakness perrmtted for the type of a is 
zero, because it is an operand of nop. Therefore, the 
type of b is forced to strength zero and the type ab- 
straction is not perrmtted. M" intuition for this is that 
nop is presunadto apply its argunants conpletely. 

6.6 Eanas-III, Tbf te- appl i cati ve, 
McQieen- weak > FX 89- pure 



(6) 



let k = fn a => 







let r = ref 


a 






in fn b 


=> 


!r 






end 






in 


let 
in 


f = k [] 
(f 0; 

f true; 

false) 








end 






end 











Dtnas-III, Tofte- applicative, and McQieen- weak 
can type this exanple because the denning expression 
for f can be abstracted with respect to the type of b. 
Al three system will not perrmt abstraction with re- 
spect to the type of a, because an allocation at that 
type will have occured. Ebwever, this does not prevent 
the other abstraction, because the types of a and b are 
not related. 

EX 89- pure cannot type this exanple because the ab- 
straction rule requires that no allocations have taken 
place, and does not distinguish between the type vari- 
ables at which allocations have taken pi ace andthe type 
variables at which no allocation have (or will) occur. 



6. 7 further Specul ati on 

Ebwever, the above exanple will be typed by EX 89- 
pure if an explicit abstraction is inserted within the def- 
inition of k. It is also interesting to observe that even 
with an explicit type abstraction in the definition of k, 
it will not be possible to give f a generic type, because 
of the pure- abstraction rule. Yet f will be autonati- 
cally proj ected as required in this exanple, and f can 
be opened explicitly as well . Special casing the abstrac- 
tion rule in let to perrmt generalization by opening 
would circunrent this peculiarity, although it will not 
eliimnate the need for explicit abstractions. 

A so, I do not expect explicit abstractions to solve 
this problemin general. Including types in alloca- 
tion (and perhaps other) effects, and relaxing the pure- 
abstraction rule to exarmne the side effects and selec- 
tively perrmt type abstractions shoul d provi de a much 
rare general treatmnt of this problem I call this the 
"Alloc@T" typing system This systemis essentially 
the systemwhich is mntioned in [Ehnas85] on pages 
90-91, where he observes that attaching sets of types to 
type arrows will conplicate the unification algorithm 
for types. Ehnas-III therefore attaches a set of types 
to type schem arrows and also a set of types to typing 
assertions. Tofte- applicative nay be viewed as attach- 
ing a single set of types to type schems. 



7 Sunnary 

Ehnas-III is strictly superior to Tofte- applicative, but 
McQieen- weak and EX 89- pure are inconparable to 
ei ther of the above. Tofte has suggested i n [ Tof te89] that 
McQieen- weak i s strictly superior to Tofte- applicative, 
but this is not the case (see exanple (4)). 



^pendix (snh) 

Exanpl es provi ded i n snh synt ax. 

(1) let val f = let val x = (fn x => x) 1 

in (fn y => ! (ref y)) 

end 
in (f 1; f true) 
end; 

( 2) N) known exanpl e . 

(3) 

let fun fold f i 1 = 

let val data = ref 1 
and result = ref i 
in while (!data <> [] ) do 

(result := f(hd ( Idata) ) ( ! result) ; 
data := tl( Idata) 

); 

! result 
end 
and cons a b = a: :b 
val fastjreverse = fold cons [] 
in fastjreverse [3,5,7]; 

fastjreverse [true, true, false] 
end; 

(4) let fun id x = x 

and rid x = ! (ref x) 

fun f y = rid id y 
in (f 0; 

f true) 
end; 

(5) let fun id b = b 

and rid a = ! (ref a) 
and nop f x = 

let fun g y = f x 
in x 
end 
val h = nop rid id 
in (h 0; 



h true) 
end; 

(6) let fun ka = 

let val r = ref a 
in fn b => !r 
end 
val f = k [] 
in (f 0; 

f true; 
false) 
end; 



j^pendix (fx) 

Ekanpl es provi ded i n EX 89 synt ax. 

(1) 

(let ((f (let ((x ((lambda (x) x) 1))) 

(lambda (y) (get (new y)))))) 
(begin 
(f 1) 
(f #t))) 

( 2) N) knowi exanpl e. 

(3) 

(let ((fold (lambda (f i) (lambda (1) 
(let ((data (new 1)) 

(result (new i))) 
(begin 

(while (not (null? (get data))) 
(begin 

(set result (f (car (get data)) 

(get result))) 
(set data (cdr (get data))))) 
(get result)))))))) 
(let ( (f ast jreverse (fold cons nil))) 
(begin 

(fast jreverse (list 3 5 7)) 
(fast jreverse (list #t #t #f))))) 

(4) (let ((id (lambda (x) x)) 

(rid (lambda (x) (get (new x))))) 
(let ((f (lambda (y) ((rid id) y)))) 
(begin 
(f 0) 
(f #t)))) 



(5) 

(let ((id (lambda (b) b)) 



(rid (lambda (a) (get (new a)))) 
(nop (lambda (f) 

(lambda (x) 

(let ((g (lambda (y) (f x)))) 
x))))) 
(let ((h ((nop rid) id))) 
(begin 
(h 0) 
(h #t)))) 

(6) (let ((k (lambda (a) 

(let ((r (new a))) 

(lambda (b) (get r)))))) 
(let ((f (k nil))) 
(begin 
(f 0) 
(f #t) 
#f))) 
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